﻿
''' <summary>
''' 圆圈轨迹
''' </summary>
Public Class CircleTrochoid
    Inherits TrochoidBase

#Region "variables"
    Private Const SPACE As Integer = 50
#End Region

#Region "properties"

#End Region

    Public Sub New(ByVal mainRect As Rectangle)
        MyBase.New(mainRect)
    End Sub

    Public Overrides Sub Init()

    End Sub

    Public Overrides Sub Show()
        For Each item As ImageForm In Me.FormCollection
            item.Show()
            'item.UpdateLocation(item.ImgPoint.X, item.ImgPoint.Y)
        Next
    End Sub
End Class
